home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / wb / startpanel.lha / StartPanel / Arexx / Miami_Off.rexx next >
OS/2 REXX Batch file  |  1998-11-05  |  2KB  |  40 lines
  1. /*     ___       ___                                                          */
  2. /*   _/  /_______\  \_     ___ ___ __ _                       _ __ ___ ___    */
  3. /*__//  / _______ \  \\___/                                               \___*/
  4. /*_/ | '  \__ __/  ` | \_/        © Copyright 1998, Christopher Page       \__*/
  5. /* \ | |    | |__  | | / \               All Rights Reserved               /  */
  6. /*  >| .    |  _/  . |<   >--- --- -- -                       - -- --- ---<   */
  7. /* / \  \   | |   /  / \ / This file may not be distributed, reproduced or \  */
  8. /* \  \  \_/   \_/  /  / \  altered, in full or in part, without written   /  */
  9. /*  \  \           /  /   \    permission from Christopher Page except    /   */
  10. /* //\  \_________/  /\\ //\     under the conditions in the StartPanel  /    */
  11. /*- --\   _______   /-- - --\        documentation, legal section       /-----*/
  12. /*-----\_/       \_/---------\   ___________________________________   /------*/
  13. /*                            \_/                                   \_/       */
  14. /*                                                                            */
  15. /* Description:                                                               */
  16. /*                                                                            */
  17. /*  This arexx script will instruct Miami to attempt to go offline. If Miami  */
  18. /*  is not loaded then this script will complain at you and exit.             */
  19.  
  20. options results
  21. ADDRESS COMMAND
  22.  
  23. DO_STDERR = 0;
  24. IF OPEN(STDERR, "CON:////Miami_Off.rexx -- Error messages window/WAIT/AUTO", "w") then DO_STDERR = 1
  25.  
  26. if ~show('p', 'MIAMI.1') then do
  27.     call writeln(STDERR, "Miami not loaded")
  28. end
  29. else do
  30.     address MIAMI.1 offline
  31. end
  32.  
  33. error:
  34. syntax:
  35. quit:
  36.  
  37. if DO_STDERR then call close(STDERR);
  38.  
  39. exit 0
  40.